home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Visual C++2891110132001.psc / VC++ / MDIForm1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-13  |  40.9 KB  |  1,180 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm pro 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Visual CPP DEV"
  5.    ClientHeight    =   10755
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   14430
  9.    Icon            =   "MDIForm1.frx":0000
  10.    LinkTopic       =   "MDIForm1"
  11.    StartUpPosition =   3  'Windows Default
  12.    WindowState     =   2  'Maximized
  13.    Begin VB.Timer Timer1 
  14.       Interval        =   10
  15.       Left            =   5400
  16.       Top             =   7800
  17.    End
  18.    Begin VB.PictureBox Picture1 
  19.       Align           =   3  'Align Left
  20.       BackColor       =   &H0080FFFF&
  21.       Height          =   10440
  22.       Left            =   0
  23.       ScaleHeight     =   10380
  24.       ScaleWidth      =   2685
  25.       TabIndex        =   3
  26.       Top             =   0
  27.       Width           =   2745
  28.       Begin VB.PictureBox Picture4 
  29.          BackColor       =   &H0080FFFF&
  30.          Height          =   7920
  31.          Left            =   0
  32.          ScaleHeight     =   7860
  33.          ScaleWidth      =   2700
  34.          TabIndex        =   4
  35.          Top             =   0
  36.          Width           =   2760
  37.          Begin VB.PictureBox Picture8 
  38.             Appearance      =   0  'Flat
  39.             BackColor       =   &H0080FFFF&
  40.             BorderStyle     =   0  'None
  41.             ForeColor       =   &H80000008&
  42.             Height          =   255
  43.             Left            =   2400
  44.             ScaleHeight     =   255
  45.             ScaleWidth      =   255
  46.             TabIndex        =   73
  47.             Top             =   960
  48.             Width           =   255
  49.             Begin VB.Image Image4 
  50.                Height          =   240
  51.                Left            =   0
  52.                Picture         =   "MDIForm1.frx":0D02
  53.                Stretch         =   -1  'True
  54.                Top             =   0
  55.                Width           =   240
  56.             End
  57.          End
  58.          Begin VB.PictureBox Picture7 
  59.             Appearance      =   0  'Flat
  60.             BackColor       =   &H0080FFFF&
  61.             BorderStyle     =   0  'None
  62.             ForeColor       =   &H80000008&
  63.             Height          =   255
  64.             Left            =   2400
  65.             ScaleHeight     =   255
  66.             ScaleWidth      =   255
  67.             TabIndex        =   72
  68.             Top             =   240
  69.             Width           =   255
  70.             Begin VB.Image Image3 
  71.                Height          =   240
  72.                Left            =   0
  73.                Picture         =   "MDIForm1.frx":1144
  74.                Stretch         =   -1  'True
  75.                Top             =   0
  76.                Width           =   240
  77.             End
  78.          End
  79.          Begin VB.PictureBox Picture6 
  80.             Appearance      =   0  'Flat
  81.             BackColor       =   &H0080FFFF&
  82.             BorderStyle     =   0  'None
  83.             ForeColor       =   &H80000008&
  84.             Height          =   255
  85.             Left            =   2400
  86.             ScaleHeight     =   255
  87.             ScaleWidth      =   255
  88.             TabIndex        =   71
  89.             Top             =   720
  90.             Width           =   255
  91.             Begin VB.Image Image2 
  92.                Height          =   240
  93.                Left            =   0
  94.                Picture         =   "MDIForm1.frx":1586
  95.                Stretch         =   -1  'True
  96.                Top             =   0
  97.                Width           =   240
  98.             End
  99.          End
  100.          Begin VB.PictureBox Picture5 
  101.             Appearance      =   0  'Flat
  102.             BackColor       =   &H0080FFFF&
  103.             BorderStyle     =   0  'None
  104.             ForeColor       =   &H80000008&
  105.             Height          =   255
  106.             Left            =   2400
  107.             ScaleHeight     =   255
  108.             ScaleWidth      =   255
  109.             TabIndex        =   70
  110.             Top             =   480
  111.             Width           =   255
  112.             Begin VB.Image Image1 
  113.                Height          =   240
  114.                Left            =   0
  115.                Picture         =   "MDIForm1.frx":19C8
  116.                Stretch         =   -1  'True
  117.                Top             =   0
  118.                Width           =   240
  119.             End
  120.          End
  121.          Begin VB.TextBox alt 
  122.             Appearance      =   0  'Flat
  123.             BackColor       =   &H0080FFFF&
  124.             Enabled         =   0   'False
  125.             Height          =   285
  126.             Left            =   1200
  127.             TabIndex        =   12
  128.             Top             =   1185
  129.             Width           =   1455
  130.          End
  131.          Begin VB.TextBox title 
  132.             Appearance      =   0  'Flat
  133.             BackColor       =   &H0080FFFF&
  134.             Enabled         =   0   'False
  135.             Height          =   285
  136.             Left            =   1200
  137.             TabIndex        =   11
  138.             Top             =   960
  139.             Width           =   1215
  140.          End
  141.          Begin VB.TextBox fgcol 
  142.             Appearance      =   0  'Flat
  143.             BackColor       =   &H0080FFFF&
  144.             Enabled         =   0   'False
  145.             Height          =   285
  146.             Left            =   1200
  147.             TabIndex        =   10
  148.             Top             =   720
  149.             Width           =   1215
  150.          End
  151.          Begin VB.TextBox bgcol 
  152.             Appearance      =   0  'Flat
  153.             BackColor       =   &H0080FFFF&
  154.             Enabled         =   0   'False
  155.             Height          =   285
  156.             Left            =   1200
  157.             TabIndex        =   9
  158.             Top             =   480
  159.             Width           =   1215
  160.          End
  161.          Begin VB.TextBox valu 
  162.             Appearance      =   0  'Flat
  163.             BackColor       =   &H0080FFFF&
  164.             Height          =   285
  165.             Left            =   1200
  166.             TabIndex        =   8
  167.             Top             =   240
  168.             Width           =   1215
  169.          End
  170.          Begin VB.TextBox Text8 
  171.             Appearance      =   0  'Flat
  172.             BackColor       =   &H0080C0FF&
  173.             Height          =   285
  174.             Left            =   0
  175.             Locked          =   -1  'True
  176.             TabIndex        =   68
  177.             Text            =   "Top"
  178.             Top             =   6720
  179.             Width           =   1215
  180.          End
  181.          Begin VB.TextBox Text7 
  182.             Appearance      =   0  'Flat
  183.             BackColor       =   &H0080C0FF&
  184.             Height          =   285
  185.             Left            =   0
  186.             Locked          =   -1  'True
  187.             TabIndex        =   67
  188.             Text            =   "Left"
  189.             Top             =   6960
  190.             Width           =   1215
  191.          End
  192.          Begin VB.TextBox Text4 
  193.             Appearance      =   0  'Flat
  194.             BackColor       =   &H0080C0FF&
  195.             Height          =   285
  196.             Left            =   0
  197.             Locked          =   -1  'True
  198.             TabIndex        =   66
  199.             Text            =   "Width"
  200.             Top             =   6240
  201.             Width           =   1215
  202.          End
  203.          Begin VB.TextBox Text3 
  204.             Appearance      =   0  'Flat
  205.             BackColor       =   &H0080C0FF&
  206.             Height          =   285
  207.             Left            =   0
  208.             Locked          =   -1  'True
  209.             TabIndex        =   65
  210.             Text            =   "Height"
  211.             Top             =   6480
  212.             Width           =   1215
  213.          End
  214.          Begin VB.TextBox zonabord 
  215.             Appearance      =   0  'Flat
  216.             BackColor       =   &H0080C0FF&
  217.             Enabled         =   0   'False
  218.             Height          =   285
  219.             Left            =   0
  220.             Locked          =   -1  'True
  221.             TabIndex        =   64
  222.             Text            =   "onAbord"
  223.             Top             =   6000
  224.             Visible         =   0   'False
  225.             Width           =   1215
  226.          End
  227.          Begin VB.TextBox zonerror 
  228.             Appearance      =   0  'Flat
  229.             BackColor       =   &H0080C0FF&
  230.             Enabled         =   0   'False
  231.             Height          =   285
  232.             Left            =   0
  233.             Locked          =   -1  'True
  234.             TabIndex        =   63
  235.             Text            =   "onError"
  236.             Top             =   5760
  237.             Visible         =   0   'False
  238.             Width           =   1215
  239.          End
  240.          Begin VB.TextBox zonblur 
  241.             Appearance      =   0  'Flat
  242.             BackColor       =   &H0080C0FF&
  243.             Enabled         =   0   'False
  244.             Height          =   285
  245.             Left            =   0
  246.             Locked          =   -1  'True
  247.             TabIndex        =   62
  248.             Text            =   "onBlur"
  249.             Top             =   5520
  250.             Visible         =   0   'False
  251.             Width           =   1215
  252.          End
  253.          Begin VB.TextBox zonchange 
  254.             Appearance      =   0  'Flat
  255.             BackColor       =   &H0080C0FF&
  256.             Enabled         =   0   'False
  257.             Height          =   285
  258.             Left            =   0
  259.             Locked          =   -1  'True
  260.             TabIndex        =   61
  261.             Text            =   "onChange"
  262.             Top             =   5280
  263.             Visible         =   0   'False
  264.             Width           =   1215
  265.          End
  266.          Begin VB.TextBox zonfocus 
  267.             Appearance      =   0  'Flat
  268.             BackColor       =   &H0080C0FF&
  269.             Enabled         =   0   'False
  270.             Height          =   285
  271.             Left            =   0
  272.             Locked          =   -1  'True
  273.             TabIndex        =   60
  274.             Text            =   "onFocus"
  275.             Top             =   5040
  276.             Visible         =   0   'False
  277.             Width           =   1215
  278.          End
  279.          Begin VB.TextBox zonselect 
  280.             Appearance      =   0  'Flat
  281.             BackColor       =   &H0080C0FF&
  282.             Enabled         =   0   'False
  283.             Height          =   285
  284.             Left            =   0
  285.             Locked          =   -1  'True
  286.             TabIndex        =   59
  287.             Text            =   "onSelect"
  288.             Top             =   4800
  289.             Visible         =   0   'False
  290.             Width           =   1215
  291.          End
  292.          Begin VB.TextBox zonkeypress 
  293.             Appearance      =   0  'Flat
  294.             BackColor       =   &H0080C0FF&
  295.             Enabled         =   0   'False
  296.             Height          =   285
  297.             Left            =   0
  298.             Locked          =   -1  'True
  299.             TabIndex        =   58
  300.             Text            =   "onKeypress"
  301.             Top             =   4560
  302.             Visible         =   0   'False
  303.             Width           =   1215
  304.          End
  305.          Begin VB.TextBox zonkeyup 
  306.             Appearance      =   0  'Flat
  307.             BackColor       =   &H0080C0FF&
  308.             Enabled         =   0   'False
  309.             Height          =   285
  310.             Left            =   0
  311.             Locked          =   -1  'True
  312.             TabIndex        =   57
  313.             Text            =   "onKeyup"
  314.             Top             =   4320
  315.             Visible         =   0   'False
  316.             Width           =   1215
  317.          End
  318.          Begin VB.TextBox zonkeydown 
  319.             Appearance      =   0  'Flat
  320.             BackColor       =   &H0080C0FF&
  321.             Enabled         =   0   'False
  322.             Height          =   285
  323.             Left            =   0
  324.             Locked          =   -1  'True
  325.             TabIndex        =   56
  326.             Text            =   "onKeydown"
  327.             Top             =   4080
  328.             Visible         =   0   'False
  329.             Width           =   1215
  330.          End
  331.          Begin VB.TextBox zonunload 
  332.             Appearance      =   0  'Flat
  333.             BackColor       =   &H0080C0FF&
  334.             Enabled         =   0   'False
  335.             Height          =   285
  336.             Left            =   0
  337.             Locked          =   -1  'True
  338.             TabIndex        =   55
  339.             Text            =   "onUnload"
  340.             Top             =   3840
  341.             Visible         =   0   'False
  342.             Width           =   1215
  343.          End
  344.          Begin VB.TextBox zonload 
  345.             Appearance      =   0  'Flat
  346.             BackColor       =   &H0080C0FF&
  347.             Enabled         =   0   'False
  348.             Height          =   285
  349.             Left            =   0
  350.             Locked          =   -1  'True
  351.             TabIndex        =   54
  352.             Text            =   "onLoad"
  353.             Top             =   3600
  354.             Visible         =   0   'False
  355.             Width           =   1215
  356.          End
  357.          Begin VB.TextBox zmouve 
  358.             Appearance      =   0  'Flat
  359.             BackColor       =   &H0080C0FF&
  360.             Enabled         =   0   'False
  361.             Height          =   285
  362.             Left            =   0
  363.             Locked          =   -1  'True
  364.             TabIndex        =   53
  365.             Text            =   "onMouseMove"
  366.             Top             =   3360
  367.             Visible         =   0   'False
  368.             Width           =   1215
  369.          End
  370.          Begin VB.TextBox zover 
  371.             Appearance      =   0  'Flat
  372.             BackColor       =   &H0080C0FF&
  373.             Enabled         =   0   'False
  374.             Height          =   285
  375.             Left            =   0
  376.             Locked          =   -1  'True
  377.             TabIndex        =   52
  378.             Text            =   "onMouseOver"
  379.             Top             =   2640
  380.             Visible         =   0   'False
  381.             Width           =   1215
  382.          End
  383.          Begin VB.TextBox zout 
  384.             Appearance      =   0  'Flat
  385.             BackColor       =   &H0080C0FF&
  386.             Enabled         =   0   'False
  387.             Height          =   285
  388.             Left            =   0
  389.             Locked          =   -1  'True
  390.             TabIndex        =   51
  391.             Text            =   "onMouseOut"
  392.             Top             =   2880
  393.             Visible         =   0   'False
  394.             Width           =   1215
  395.          End
  396.          Begin VB.TextBox zdown 
  397.             Appearance      =   0  'Flat
  398.             BackColor       =   &H0080C0FF&
  399.             Enabled         =   0   'False
  400.             Height          =   285
  401.             Left            =   0
  402.             Locked          =   -1  'True
  403.             TabIndex        =   50
  404.             Text            =   "onMouseDown"
  405.             Top             =   3120
  406.             Visible         =   0   'False
  407.             Width           =   1215
  408.          End
  409.          Begin VB.TextBox zondblclick 
  410.             Appearance      =   0  'Flat
  411.             BackColor       =   &H0080C0FF&
  412.             Enabled         =   0   'False
  413.             Height          =   285
  414.             Left            =   0
  415.             Locked          =   -1  'True
  416.             TabIndex        =   49
  417.             Text            =   "onDblClick"
  418.             Top             =   2400
  419.             Visible         =   0   'False
  420.             Width           =   1215
  421.          End
  422.          Begin VB.TextBox zclick 
  423.             Appearance      =   0  'Flat
  424.             BackColor       =   &H0080C0FF&
  425.             Enabled         =   0   'False
  426.             Height          =   285
  427.             Left            =   0
  428.             Locked          =   -1  'True
  429.             TabIndex        =   48
  430.             Text            =   "onClick"
  431.             Top             =   2160
  432.             Visible         =   0   'False
  433.             Width           =   1215
  434.          End
  435.          Begin VB.TextBox zpath 
  436.             Appearance      =   0  'Flat
  437.             BackColor       =   &H0080C0FF&
  438.             Enabled         =   0   'False
  439.             Height          =   285
  440.             Left            =   0
  441.             Locked          =   -1  'True
  442.             TabIndex        =   47
  443.             Text            =   "Path"
  444.             Top             =   1920
  445.             Width           =   1215
  446.          End
  447.          Begin VB.CheckBox RO 
  448.             BackColor       =   &H0080FFFF&
  449.             Enabled         =   0   'False
  450.             Height          =   200
  451.             Left            =   1800
  452.             TabIndex        =   46
  453.             Top             =   1490
  454.             Width           =   255
  455.          End
  456.          Begin VB.TextBox zborder 
  457.             Appearance      =   0  'Flat
  458.             BackColor       =   &H0080C0FF&
  459.             Enabled         =   0   'False
  460.             Height          =   285
  461.             Left            =   0
  462.             Locked          =   -1  'True
  463.             TabIndex        =   45
  464.             Text            =   "Border"
  465.             Top             =   1680
  466.             Width           =   1215
  467.          End
  468.          Begin VB.TextBox zreadonly 
  469.             Appearance      =   0  'Flat
  470.             BackColor       =   &H0080C0FF&
  471.             Enabled         =   0   'False
  472.             Height          =   285
  473.             Left            =   0
  474.             Locked          =   -1  'True
  475.             TabIndex        =   44
  476.             Text            =   "ReadOnly"
  477.             Top             =   1440
  478.             Width           =   1215
  479.          End
  480.          Begin VB.TextBox zalt 
  481.             Appearance      =   0  'Flat
  482.             BackColor       =   &H0080C0FF&
  483.             Enabled         =   0   'False
  484.             Height          =   285
  485.             Left            =   0
  486.             Locked          =   -1  'True
  487.             TabIndex        =   43
  488.             Text            =   "Alt"
  489.             Top             =   1200
  490.             Width           =   1215
  491.          End
  492.          Begin VB.TextBox ztitle 
  493.             Appearance      =   0  'Flat
  494.             BackColor       =   &H0080C0FF&
  495.             Enabled         =   0   'False
  496.             Height          =   285
  497.             Left            =   0
  498.             Locked          =   -1  'True
  499.             TabIndex        =   42
  500.             Text            =   "Title"
  501.             Top             =   960
  502.             Width           =   1215
  503.          End
  504.          Begin VB.TextBox zfgcolor 
  505.             Appearance      =   0  'Flat
  506.             BackColor       =   &H0080C0FF&
  507.             Enabled         =   0   'False
  508.             Height          =   285
  509.             Left            =   0
  510.             Locked          =   -1  'True
  511.             TabIndex        =   41
  512.             Text            =   "FGColor"
  513.             Top             =   720
  514.             Width           =   1215
  515.          End
  516.          Begin VB.TextBox ztype 
  517.             Appearance      =   0  'Flat
  518.             BackColor       =   &H00FF8080&
  519.             Height          =   285
  520.             Left            =   0
  521.             Locked          =   -1  'True
  522.             TabIndex        =   40
  523.             Text            =   "Type"
  524.             Top             =   7320
  525.             Width           =   1215
  526.          End
  527.          Begin VB.TextBox zitem 
  528.             Appearance      =   0  'Flat
  529.             BackColor       =   &H00FF8080&
  530.             Height          =   285
  531.             Left            =   0
  532.             Locked          =   -1  'True
  533.             TabIndex        =   39
  534.             Text            =   "Item"
  535.             Top             =   7560
  536.             Width           =   1215
  537.          End
  538.          Begin VB.TextBox zbgcolor 
  539.             Appearance      =   0  'Flat
  540.             BackColor       =   &H0080C0FF&
  541.             Enabled         =   0   'False
  542.             Height          =   285
  543.             Left            =   0
  544.             Locked          =   -1  'True
  545.             TabIndex        =   38
  546.             Text            =   "BGColor"
  547.             Top             =   480
  548.             Width           =   1215
  549.          End
  550.          Begin VB.TextBox zvalue 
  551.             Appearance      =   0  'Flat
  552.             BackColor       =   &H0080C0FF&
  553.             Height          =   285
  554.             Left            =   0
  555.             Locked          =   -1  'True
  556.             TabIndex        =   37
  557.             Text            =   "Value"
  558.             Top             =   240
  559.             Width           =   1215
  560.          End
  561.          Begin VB.TextBox zname 
  562.             Appearance      =   0  'Flat
  563.             BackColor       =   &H0080C0FF&
  564.             Enabled         =   0   'False
  565.             Height          =   285
  566.             Left            =   0
  567.             Locked          =   -1  'True
  568.             TabIndex        =   36
  569.             Text            =   "Name"
  570.             Top             =   0
  571.             Width           =   1215
  572.          End
  573.          Begin VB.TextBox Cwidth 
  574.             Appearance      =   0  'Flat
  575.             BackColor       =   &H0080FFFF&
  576.             Height          =   285
  577.             Left            =   1200
  578.             TabIndex        =   35
  579.             Top             =   6240
  580.             Width           =   1455
  581.          End
  582.          Begin VB.TextBox Cheight 
  583.             Appearance      =   0  'Flat
  584.             BackColor       =   &H0080FFFF&
  585.             Height          =   285
  586.             Left            =   1200
  587.             TabIndex        =   34
  588.             Top             =   6480
  589.             Width           =   1455
  590.          End
  591.          Begin VB.TextBox Ctop 
  592.             Appearance      =   0  'Flat
  593.             BackColor       =   &H0080FFFF&
  594.             Height          =   285
  595.             Left            =   1200
  596.             TabIndex        =   33
  597.             Top             =   6720
  598.             Width           =   1455
  599.          End
  600.          Begin VB.TextBox Cleft 
  601.             Appearance      =   0  'Flat
  602.             BackColor       =   &H0080FFFF&
  603.             Height          =   285
  604.             Left            =   1200
  605.             TabIndex        =   32
  606.             Top             =   6960
  607.             Width           =   1455
  608.          End
  609.          Begin VB.ComboBox onabord 
  610.             BackColor       =   &H0080FFFF&
  611.             Enabled         =   0   'False
  612.             Height          =   315
  613.             Left            =   1200
  614.             TabIndex        =   31
  615.             Top             =   6000
  616.             Visible         =   0   'False
  617.             Width           =   1455
  618.          End
  619.          Begin VB.ComboBox onerror 
  620.             BackColor       =   &H0080FFFF&
  621.             Enabled         =   0   'False
  622.             Height          =   315
  623.             Left            =   1200
  624.             TabIndex        =   30
  625.             Top             =   5760
  626.             Visible         =   0   'False
  627.             Width           =   1455
  628.          End
  629.          Begin VB.ComboBox onblur 
  630.             BackColor       =   &H0080FFFF&
  631.             Enabled         =   0   'False
  632.             Height          =   315
  633.             Left            =   1200
  634.             TabIndex        =   29
  635.             Top             =   5520
  636.             Visible         =   0   'False
  637.             Width           =   1455
  638.          End
  639.          Begin VB.ComboBox onchange 
  640.             BackColor       =   &H0080FFFF&
  641.             Enabled         =   0   'False
  642.             Height          =   315
  643.             Left            =   1200
  644.             TabIndex        =   28
  645.             Top             =   5280
  646.             Visible         =   0   'False
  647.             Width           =   1455
  648.          End
  649.          Begin VB.ComboBox onfocus 
  650.             BackColor       =   &H0080FFFF&
  651.             Enabled         =   0   'False
  652.             Height          =   315
  653.             Left            =   1200
  654.             TabIndex        =   27
  655.             Top             =   5040
  656.             Visible         =   0   'False
  657.             Width           =   1455
  658.          End
  659.          Begin VB.ComboBox onselect 
  660.             BackColor       =   &H0080FFFF&
  661.             Enabled         =   0   'False
  662.             Height          =   315
  663.             Left            =   1200
  664.             TabIndex        =   26
  665.             Top             =   4800
  666.             Visible         =   0   'False
  667.             Width           =   1455
  668.          End
  669.          Begin VB.ComboBox onkeypress 
  670.             BackColor       =   &H0080FFFF&
  671.             Enabled         =   0   'False
  672.             Height          =   315
  673.             Left            =   1200
  674.             TabIndex        =   25
  675.             Top             =   4560
  676.             Visible         =   0   'False
  677.             Width           =   1455
  678.          End
  679.          Begin VB.ComboBox onkeyup 
  680.             BackColor       =   &H0080FFFF&
  681.             Enabled         =   0   'False
  682.             Height          =   315
  683.             Left            =   1200
  684.             TabIndex        =   24
  685.             Top             =   4320
  686.             Visible         =   0   'False
  687.             Width           =   1455
  688.          End
  689.          Begin VB.ComboBox onkeydown 
  690.             BackColor       =   &H0080FFFF&
  691.             Enabled         =   0   'False
  692.             Height          =   315
  693.             Left            =   1200
  694.             TabIndex        =   23
  695.             Top             =   4080
  696.             Visible         =   0   'False
  697.             Width           =   1455
  698.          End
  699.          Begin VB.ComboBox onunload 
  700.             BackColor       =   &H0080FFFF&
  701.             Enabled         =   0   'False
  702.             Height          =   315
  703.             Left            =   1200
  704.             TabIndex        =   22
  705.             Top             =   3840
  706.             Visible         =   0   'False
  707.             Width           =   1455
  708.          End
  709.          Begin VB.ComboBox onload 
  710.             BackColor       =   &H0080FFFF&
  711.             Enabled         =   0   'False
  712.             Height          =   315
  713.             Left            =   1200
  714.             TabIndex        =   21
  715.             Top             =   3600
  716.             Visible         =   0   'False
  717.             Width           =   1455
  718.          End
  719.          Begin VB.ComboBox mouve 
  720.             BackColor       =   &H0080FFFF&
  721.             Enabled         =   0   'False
  722.             Height          =   315
  723.             Left            =   1200
  724.             TabIndex        =   20
  725.             Top             =   3360
  726.             Visible         =   0   'False
  727.             Width           =   1455
  728.          End
  729.          Begin VB.ComboBox down 
  730.             BackColor       =   &H0080FFFF&
  731.             Enabled         =   0   'False
  732.             Height          =   315
  733.             Left            =   1200
  734.             TabIndex        =   19
  735.             Top             =   3120
  736.             Visible         =   0   'False
  737.             Width           =   1455
  738.          End
  739.          Begin VB.ComboBox out 
  740.             BackColor       =   &H0080FFFF&
  741.             Enabled         =   0   'False
  742.             Height          =   315
  743.             Left            =   1200
  744.             TabIndex        =   18
  745.             Top             =   2880
  746.             Visible         =   0   'False
  747.             Width           =   1455
  748.          End
  749.          Begin VB.ComboBox over 
  750.             BackColor       =   &H0080FFFF&
  751.             Enabled         =   0   'False
  752.             Height          =   315
  753.             Left            =   1200
  754.             TabIndex        =   17
  755.             Top             =   2640
  756.             Visible         =   0   'False
  757.             Width           =   1455
  758.          End
  759.          Begin VB.ComboBox ondblclick 
  760.             BackColor       =   &H0080FFFF&
  761.             Enabled         =   0   'False
  762.             Height          =   315
  763.             Left            =   1200
  764.             TabIndex        =   16
  765.             Top             =   2400
  766.             Visible         =   0   'False
  767.             Width           =   1455
  768.          End
  769.          Begin VB.ComboBox onclick 
  770.             BackColor       =   &H0080FFFF&
  771.             Enabled         =   0   'False
  772.             Height          =   315
  773.             Left            =   1200
  774.             TabIndex        =   15
  775.             Top             =   2160
  776.             Visible         =   0   'False
  777.             Width           =   1455
  778.          End
  779.          Begin VB.TextBox path 
  780.             Appearance      =   0  'Flat
  781.             BackColor       =   &H0080FFFF&
  782.             Enabled         =   0   'False
  783.             Height          =   285
  784.             Left            =   1200
  785.             TabIndex        =   14
  786.             Top             =   1920
  787.             Width           =   1455
  788.          End
  789.          Begin VB.TextBox border 
  790.             Appearance      =   0  'Flat
  791.             BackColor       =   &H0080FFFF&
  792.             Enabled         =   0   'False
  793.             Height          =   285
  794.             Left            =   1200
  795.             TabIndex        =   13
  796.             Top             =   1680
  797.             Width           =   1455
  798.          End
  799.          Begin VB.TextBox nam 
  800.             Appearance      =   0  'Flat
  801.             BackColor       =   &H0080FFFF&
  802.             Enabled         =   0   'False
  803.             Height          =   285
  804.             Left            =   1200
  805.             TabIndex        =   7
  806.             Top             =   0
  807.             Width           =   1455
  808.          End
  809.          Begin VB.TextBox Wtype 
  810.             Appearance      =   0  'Flat
  811.             BackColor       =   &H00FF8080&
  812.             Height          =   285
  813.             Left            =   1200
  814.             Locked          =   -1  'True
  815.             TabIndex        =   6
  816.             Top             =   7320
  817.             Width           =   1455
  818.          End
  819.          Begin VB.TextBox Witem 
  820.             Appearance      =   0  'Flat
  821.             BackColor       =   &H00FF8080&
  822.             Height          =   285
  823.             Left            =   1200
  824.             Locked          =   -1  'True
  825.             TabIndex        =   5
  826.             Top             =   7560
  827.             Width           =   1455
  828.          End
  829.          Begin VB.Line Line2 
  830.             X1              =   1800
  831.             X2              =   2160
  832.             Y1              =   1680
  833.             Y2              =   1680
  834.          End
  835.          Begin VB.Line Line1 
  836.             X1              =   2640
  837.             X2              =   2640
  838.             Y1              =   1320
  839.             Y2              =   1800
  840.          End
  841.       End
  842.    End
  843.    Begin VB.PictureBox Picture3 
  844.       Align           =   3  'Align Left
  845.       Appearance      =   0  'Flat
  846.       BackColor       =   &H80000005&
  847.       BorderStyle     =   0  'None
  848.       ForeColor       =   &H80000008&
  849.       Height          =   10440
  850.       Left            =   2745
  851.       ScaleHeight     =   10440
  852.       ScaleWidth      =   240
  853.       TabIndex        =   1
  854.       Top             =   0
  855.       Width           =   240
  856.       Begin VB.VScrollBar scr 
  857.          Height          =   8415
  858.          Left            =   0
  859.          TabIndex        =   2
  860.          Top             =   0
  861.          Width           =   255
  862.       End
  863.    End
  864.    Begin VB.PictureBox Picture2 
  865.       Align           =   2  'Align Bottom
  866.       BackColor       =   &H00FF8080&
  867.       Height          =   315
  868.       Left            =   0
  869.       ScaleHeight     =   255
  870.       ScaleWidth      =   14370
  871.       TabIndex        =   0
  872.       Top             =   10440
  873.       Width           =   14430
  874.       Begin VB.Label Label1 
  875.          AutoSize        =   -1  'True
  876.          BackStyle       =   0  'Transparent
  877.          Caption         =   "Visual HTML Dev Par BlackWizzard"
  878.          Height          =   195
  879.          Left            =   14160
  880.          TabIndex        =   69
  881.          Top             =   20
  882.          Width           =   2565
  883.       End
  884.    End
  885. Attribute VB_Name = "pro"
  886. Attribute VB_GlobalNameSpace = False
  887. Attribute VB_Creatable = False
  888. Attribute VB_PredeclaredId = True
  889. Attribute VB_Exposed = False
  890. Private Sub alt_Change()
  891. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype & Witem, "alt", alt.text)
  892. Call ApplyVal
  893. End Sub
  894. Private Sub bgcol_Change()
  895. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype & Witem, "bgcolor", bgcol.text)
  896. Call ApplyVal
  897. End Sub
  898. Private Sub border_Change()
  899. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype & Witem, "border", border.text)
  900. Call ApplyVal
  901. End Sub
  902. Private Sub Cheight_Change()
  903. On Error Resume Next
  904. Select Case Wtype.text
  905. Case "cb"
  906. Form1.cb(Witem.text).Height = Cheight.text
  907. Case "cc"
  908. 'non modifiable...
  909. Case "ct"
  910. Form1.ct(Witem.text).Height = Cheight.text
  911. Case "ci"
  912. Form1.ci(Witem.text).Height = Cheight.text
  913. Case "cp"
  914. Form1.cp(Witem.text).Height = Cheight.text
  915. Case "cta"
  916. Form1.cta(Witem.text).Height = Cheight.text
  917. Case "ch"
  918. Form1.ch(Witem.text).Height = Cheight.text
  919. Case "clist"
  920. Form1.clist(Witem.text).Height = Cheight.text
  921. Case "ccombo"
  922. Form1.ccombo(Witem.text).Height = Cheight.text
  923. Case "cli"
  924. Form1.cli(Witem.text).Height = Cheight.text
  925. Case "Page"
  926. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\PageN/A", "height", Cheight.text)
  927. End Select
  928. End Sub
  929. Private Sub Cleft_Change()
  930. On Error Resume Next
  931. Select Case Wtype.text
  932. Case "cb"
  933. Form1.cb(Witem.text).Left = Cleft.text
  934. Case "cc"
  935. 'non modifiable...
  936. Case "ct"
  937. Form1.ct(Witem.text).Left = Cleft.text
  938. Case "ci"
  939. Form1.ci(Witem.text).Left = Cleft.text
  940. Case "cp"
  941. Form1.cp(Witem.text).Left = Cleft.text
  942. Case "cta"
  943. Form1.cta(Witem.text).Left = Cleft.text
  944. Case "ch"
  945. Form1.ch(Witem.text).Left = Cleft.text
  946. Case "clist"
  947. Form1.clist(Witem.text).Left = Cleft.text
  948. Case "ccombo"
  949. Form1.ccombo(Witem.text).Left = Cleft.text
  950. Case "cli"
  951. Form1.cli(Witem.text).Left = Cleft.text
  952. Case "Page"
  953. 'Form1.zone.Left = Cleft.Text
  954. End Select
  955. End Sub
  956. Private Sub Ctop_Change()
  957. On Error Resume Next
  958. Select Case Wtype.text
  959. Case "cb"
  960. Form1.cb(Witem.text).Top = Ctop.text
  961. Case "cc"
  962. 'non modifiable...
  963. Case "ct"
  964. Form1.ct(Witem.text).Top = Ctop.text
  965. Case "ci"
  966. Form1.ci(Witem.text).Top = Ctop.text
  967. Case "cp"
  968. Form1.cp(Witem.text).Top = Ctop.text
  969. Case "cta"
  970. Form1.cta(Witem.text).Top = Ctop.text
  971. Case "ch"
  972. Form1.ch(Witem.text).Top = Ctop.text
  973. Case "clist"
  974. Form1.clist(Witem.text).Top = Ctop.text
  975. Case "ccombo"
  976. Form1.ccombo(Witem.text).Top = Ctop.text
  977. Case "cli"
  978. Form1.cli(Witem.text).Top = Ctop.text
  979. Case "Page"
  980. 'Form1.zone.Top = Ctop.Text
  981. End Select
  982. End Sub
  983. Private Sub Cwidth_Change()
  984. On Error Resume Next
  985. Select Case Wtype.text
  986. Case "cb"
  987. Form1.cb(Witem.text).Width = Cwidth.text
  988. Case "cc"
  989. 'non modifiable...
  990. Case "ct"
  991. Form1.ct(Witem.text).Width = Cwidth.text
  992. Case "ci"
  993. Form1.ci(Witem.text).Width = Cwidth.text
  994. Case "cp"
  995. Form1.cp(Witem.text).Width = Cwidth.text
  996. Case "cta"
  997. Form1.cta(Witem.text).Width = Cwidth.text
  998. Case "ch"
  999. Form1.ch(Witem.text).Width = Cwidth.text
  1000. Case "clist"
  1001. Form1.clist(Witem.text).Width = Cwidth.text
  1002. Case "ccombo"
  1003. Form1.ccombo(Witem.text).Width = Cwidth.text
  1004. Case "cli"
  1005. Form1.cli(Witem.text).Width = Cwidth.text
  1006. Case "Page"
  1007. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\PageN/A", "width", Cwidth.text)
  1008. End Select
  1009. End Sub
  1010. Private Sub down_Click()
  1011. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "down", down.text)
  1012. Call ApplyVal
  1013. End Sub
  1014. Private Sub fgcol_Change()
  1015. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "fgcolor", fgcol.text)
  1016. Call ApplyVal
  1017. End Sub
  1018. Private Sub Form_Load()
  1019. forward Me
  1020. End Sub
  1021. Private Sub Image1_Click()
  1022. dragoon "the color must be in RGB." & vbCrLf & "exemple: RGB(255,0,255)", "BACKCOLOR PROPERTY"
  1023. End Sub
  1024. Private Sub Image2_Click()
  1025. dragoon "the color must be in RGB." & vbCrLf & "exemple: RGB(255,0,255)", "FORCOLOR PROPERTY"
  1026. End Sub
  1027. Private Sub Image3_Click()
  1028. dragoon "It's the caption of the selected component", "VALUE PROPERTY"
  1029. End Sub
  1030. Private Sub Image4_Click()
  1031. dragoon "This is the Caption of the cpp windows.", "TITLE PROPERTY"
  1032. End Sub
  1033. Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  1034. End Sub
  1035. Private Sub MDIForm_Resize()
  1036. scr.Height = Picture2.Top
  1037. End Sub
  1038. Private Sub mouve_Click()
  1039. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "move", mouve.text)
  1040. Call ApplyVal
  1041. End Sub
  1042. Private Sub nam_Change()
  1043. On Error Resume Next
  1044. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "name", nam.text)
  1045. Call ApplyVal
  1046. End Sub
  1047. Private Sub onabord_Click()
  1048. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "abord", onabord.text)
  1049. Call ApplyVal
  1050. End Sub
  1051. Private Sub onblur_Click()
  1052. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "blur", onblur.text)
  1053. Call ApplyVal
  1054. End Sub
  1055. Private Sub onchange_Click()
  1056. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "change", onchange.text)
  1057. Call ApplyVal
  1058. End Sub
  1059. Private Sub onclick_Click()
  1060. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "click", onclick.text)
  1061. Call ApplyVal
  1062. End Sub
  1063. Private Sub ondblclick_Click()
  1064. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "dblclick", ondblclick.text)
  1065. Call ApplyVal
  1066. End Sub
  1067. Private Sub onerror_Click()
  1068. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "error", onerror.text)
  1069. Call ApplyVal
  1070. End Sub
  1071. Private Sub onfocus_Click()
  1072. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "focus", onfocus.text)
  1073. Call ApplyVal
  1074. End Sub
  1075. Private Sub onkeydown_Click()
  1076. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "keydown", onkeydown.text)
  1077. Call ApplyVal
  1078. End Sub
  1079. Private Sub onkeypress_Click()
  1080. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "keypress", onkeypress.text)
  1081. Call ApplyVal
  1082. End Sub
  1083. Private Sub onkeyup_Click()
  1084. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "keyup", onkeyup.text)
  1085. Call ApplyVal
  1086. End Sub
  1087. Private Sub onload_Click()
  1088. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "load", onload.text)
  1089. Call ApplyVal
  1090. End Sub
  1091. Private Sub onselect_Click()
  1092. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "select", onselect.text)
  1093. Call ApplyVal
  1094. End Sub
  1095. Private Sub onunload_Click()
  1096. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "unload", onunload.text)
  1097. Call ApplyVal
  1098. End Sub
  1099. Private Sub out_Click()
  1100. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "out", out.text)
  1101. Call ApplyVal
  1102. End Sub
  1103. Private Sub over_Click()
  1104. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype.text & Witem.text, "over", over.text)
  1105. Call ApplyVal
  1106. End Sub
  1107. Private Sub path_Change()
  1108. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype & Witem, "path", path.text)
  1109. Call ApplyVal
  1110. End Sub
  1111. Private Sub RO_Click()
  1112. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype & Witem, "ro", RO.Value)
  1113. Call ApplyVal
  1114. End Sub
  1115. Private Sub scr_Change()
  1116. scr.Height = Picture2.Top
  1117. scr.Max = Picture4.Height - Picture2.Top
  1118. Picture4.Top = 0 - scr.Value
  1119. End Sub
  1120. Private Sub Timer1_Timer()
  1121. If Label1.Left < 0 - Label1.Width Then
  1122. Label1.Left = Me.Width
  1123. Label1.Left = Label1.Left - 50
  1124. End If
  1125. End Sub
  1126. Private Sub title_Change()
  1127. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype & Witem, "title", title.text)
  1128. Call ApplyVal
  1129. End Sub
  1130. Private Sub valu_Change()
  1131. Call savestring(HKEY_CURRENT_USER, "Software\VHTML\" & Wtype & Witem, "value", valu.text)
  1132. Call ApplyVal
  1133. End Sub
  1134. Public Sub ApplyVal()
  1135. Dim fileimg
  1136. Select Case Wtype
  1137. Case "cb"
  1138. Form1.cb(Witem.text).Caption = valu.text
  1139. Form1.cb(Witem.text).ToolTipText = nam.text
  1140. Case "cc"
  1141. Form1.cc(Witem.text).ToolTipText = nam.text
  1142. Case "ci"
  1143. Form1.ci(Witem.text).ToolTipText = alt.text & " - (" & nam.text & ")"
  1144. If ExistFile(Form1.cd1.FileName & "\" & path.text) = True Then
  1145. fileimg = path.text
  1146. Form1.ci(Witem.text).Picture = fileimg
  1147. End If
  1148. Case "cli"
  1149. Form1.cli(Witem.text).Caption = valu.text
  1150. Form1.cli(Witem.text).ToolTipText = "URL: " & path.text
  1151. Case "clist"
  1152. Form1.clist(Witem.text).ToolTipText = nam.text
  1153. Form1.clist(Witem.text).text = valu.text
  1154. Case "ccombo"
  1155. Form1.ccombo(Witem.text).ToolTipText = nam.text
  1156. Form1.ccombo(Witem.text).text = valu.text
  1157. Case "ct"
  1158. Form1.ct(Witem.text).ToolTipText = nam.text
  1159. Form1.ct(Witem.text).text = valu.text
  1160. Case "cta"
  1161. Form1.cta(Witem.text).ToolTipText = nam.text
  1162. Form1.cta(Witem.text).text = valu.text
  1163. Case "cp"
  1164. Form1.cp(Witem.text).ToolTipText = nam.text
  1165. Form1.cp(Witem.text).text = valu.text
  1166. Case "ch"
  1167. Form1.ct(Witem.text).ToolTipText = nam.text
  1168. Form1.ct(Witem.text).text = valu.text
  1169. Case "cl"
  1170. Case "csub"
  1171. Case "Page"
  1172. If Len(bgcol.text) = 7 Then
  1173. Form1.zone.BackColor = InvHex(Right(UCase(bgcol.text), 6))
  1174. End If
  1175. End Select
  1176. End Sub
  1177. Public Function InvHex(ValHex As String) As String
  1178.   InvHex = val("&H00" & Right(ValHex, 2) & Mid(ValHex, 3, 2) & Left(ValHex, 2) & "&")
  1179. End Function
  1180.